


Namespace Kardex
Public Class AlmacenProducto



 Public Function Combo(ByVal vTodos As Boolean, Optional ByVal vmensaje As String = "Todos") As Entity.Kardex.AlmacenProductoCol
dim objCol as  New entity.Kardex.AlmacenProductoCol
dim obj as  New Data.Kardex.AlmacenProducto
objCol = obj.Listar("", _
		-1, _
		-1, _
		-1, _
		"", _
		-1, _
		-1)
 If vTodos Then
Dim ent As New Entity.Kardex.AlmacenProducto( _ 
		-1, _
		vmensaje , _
		-1, _
		"", _
		-1, _
		-1)
objCol.AddPrimero(ent)
End If
Return objCol
End Function


'***************************


public Function Listar(AlmacenProductoId as integer) as Entity.Kardex.AlmacenProducto

dim objEnt as  New entity.Kardex.AlmacenProducto
dim obj as  New Data.Kardex.AlmacenProducto
return obj.Listar(AlmacenProductoId)

End Function


'***************************



public Function Listar( _
		AlmacenProductoId as Integer, _
		AlmacenId as Integer, _
		ProductoId as Integer, _
		Ubicacion as String, _
		Cantidad as Integer, _
		Estado as Integer) _
as  Entity.Kardex.AlmacenProductoCol

dim objCol as  New entity.Kardex.AlmacenProductoCol
dim obj as  New Data.Kardex.AlmacenProducto
return obj.listar("", _
		AlmacenProductoId, _
		AlmacenId, _
		ProductoId, _
		Ubicacion, _
		Cantidad, _
		Estado)

End Function


'***************************


public Function Grabar( _
		AlmacenProductoId as Integer, _
		AlmacenId as Integer, _
		ProductoId as Integer, _
		Ubicacion as String, _
		Cantidad as Integer, _
		Estado as Integer, _
vUSuario as integer)as  integer

dim _codigo as integer =-1
dim obj as  New Data.Kardex.AlmacenProducto
 if AlmacenProductoId=-1 then 
_codigo= obj.insert( "", _
		AlmacenProductoId , _
		AlmacenId , _
		ProductoId , _
		Ubicacion , _
		Cantidad , _
		Estado , _
 vUSuario )
else
_codigo= obj.update( "", _
		AlmacenProductoId , _
		AlmacenId , _
		ProductoId , _
		Ubicacion , _
		Cantidad , _
		Estado , _
 vUSuario )
end if 
return _codigo

End Function


'***************************


public Function Insertar( _
		AlmacenProductoId as Integer, _
		AlmacenId as Integer, _
		ProductoId as Integer, _
		Ubicacion as String, _
		Cantidad as Integer, _
		Estado as Integer, _
vUSuario as integer)as  integer

dim _codigo as integer =-1
dim obj as  New Data.Kardex.AlmacenProducto
_codigo= obj.insert( "", _
		AlmacenProductoId, _
		AlmacenId, _
		ProductoId, _
		Ubicacion, _
		Cantidad, _
		Estado, _
 vUSuario )
return _codigo

End Function


'***************************


public Function Updatear( _
		AlmacenProductoId as Integer, _
		AlmacenId as Integer, _
		ProductoId as Integer, _
		Ubicacion as String, _
		Cantidad as Integer, _
		Estado as Integer, _
vUSuario as integer)as  integer

dim _codigo as integer =-1
dim obj as  New Data.Kardex.AlmacenProducto
_codigo= obj.Update( "", _
		AlmacenProductoId , _
		AlmacenId , _
		ProductoId , _
		Ubicacion , _
		Cantidad , _
		Estado , _
 vUSuario )
return _codigo

End Function


'***************************


public Function ELiminar(  AlmacenProductoId as integer,vusuario as integer ,optional vopcion as string="Delete") as integer
dim _codigo as integer =-1
dim obj as  New Data.Kardex.AlmacenProducto
_codigo= obj.Eliminar( "vopcion", AlmacenProductoId ,vusuario)
return _codigo

End Function

End Class



end namespace

